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5 .PRIME TESTER 
0 .by L.E.GUBERNATIS 
7 .from '57 PROGRAMS &GAMES ' 

10 PRINT "THIS PROGRAM TESTS IF A 

2 NUMBER IS A PRIME" 

70 PRINT "IT CONTINUES TO CYCLE 

UNTIL ZERO IS ENTERED" 

28. 

29. 

39 PRINT "ENTER THE TEST NUMBER, 

ZERO TO STOP" 

31 . 

32 . 

40 ’input N 
60IF N=0 GOTO 220 

70 IF N<4 GOTO 180 ' 

80 1=0 
90 T=2 
1 00 J=N;»T 
110 K=JxT 

120 IF N=K GOTO 200 
130 1 = 1+1 
1 40L=TxT 

150 IF L>N GOTO 180 
160 T=(Ix2)+1 ' 

170 GOTO 100 

180 PRINT N,"IS A PRIME" 

190 GOTO 38 

200 PRINT N,"— IS HOT A PRIME" ,T , "—IS THE SMALLEST 
FACTOR" 

210 GOTO 28 

220 PRINT "GOOD-BYE FROM THE PRIME 

TESTER" 
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